home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Franz PD / Franz PD Disk #093 (1990-10)(Amiga User Group Deutschland e.V.).zip / Franz PD Disk #093 (1990-10)(Amiga User Group Deutschland e.V.).adf / Redcode / Ice.Split < prev    next >
Text File  |  1990-09-11  |  4KB  |  162 lines

  1. ;
  2. ; Ice.Split - Verwendet die gegnerischen Programmzeiger für
  3. ;             eigene Zwecke. Programmiert von Christopher Salomon,
  4. ;             Steinacker 11a, 5901 Wilnsdorf 2 (BRD). Schlägt 
  5. ;             Killer4, Dampfwalze, Mausefalle, Jumper1, JimBeam ... etc!
  6. ;
  7.  
  8. jumpy2          jmp 0
  9.                 dat 0
  10.                 dat 0
  11.                 dat 0
  12.                 dat 0
  13.                 dat 0
  14.                 dat 0
  15. offset          DAT -1000            ;erst bei -1000 lohnt es sich zu gucken
  16.  
  17.                 dat 0
  18.  
  19.  
  20. wohin           dat -9
  21. wieoft          dat 2600
  22. vorne           mov #0,0
  23. vorne1          mov #10,@wohin
  24.                 sub #4,wohin
  25.                 djn vorne1,wieoft
  26.  
  27.                 add #700,5
  28.                 mov 2,@4
  29.                 spl @3
  30.                 jmp 0
  31.  
  32.                 dat 0
  33.                 dat 0
  34.                 dat 0
  35.                 dat 0
  36.                 dat 0
  37.                 dat 0
  38.                 dat 0
  39.  
  40. jumpy1          jmp 0
  41.                 dat 0
  42.                 dat 0
  43.                 dat 0
  44.                 dat 0
  45.                 dat 0
  46.                 dat 0
  47.                 dat 0
  48. jump            jmp @0
  49. start        
  50.                 sub #50,offset
  51.                 djn thrstart1,zaehler
  52.                 jmp thirdwave
  53. thrstart1       JMZ start,@offset ;ist irgendwo etwas <>
  54.                 JMZ start,<offset ;es sollten schon 2 bytes <> 0 sein
  55.                 ADD #6,offset     ;sicherheitsabstand
  56.                 SUB offset,erg    ;sprungwert berrechnen ( es geht doch )
  57.                 MOV erg,<offset   ;DAT fuer sklavenfalle poken
  58. loop1           ADD #1,falle      ;JMP berrechnen
  59.                 mov falle,<offset ;
  60.                 djn loop1,zahl    ;schleifenende
  61. hier2
  62.                 MOV zahlorg,zahl      ;zaehler fuer nachher init.
  63.                 mov jump,falle
  64.                 mov #102,erg
  65.                 JMP start         ;und von vorne
  66.  
  67.                 dat 0
  68.                 dat 0
  69.                 dat 0
  70.                 dat 0
  71.                 dat 0
  72.                 dat 0
  73.                 dat 0
  74.                 dat 0
  75.                 dat 0
  76. zahlorg         dat 20
  77. zahl            DAT 20            ;schleifenzaehler
  78. falle           JMP @0            ;wieder mal eine falle, diesmal indirekt
  79. erg             DAT 102            ;sklave-offset +1
  80. zaehler         dat 120
  81.  
  82.                 dat 0
  83.                 dat 0
  84.                 dat 0
  85.                 dat 0
  86.                 dat 0
  87.                 dat 0
  88.                 dat 0
  89.                 
  90.                 
  91.     
  92.                 sub #8,-28
  93. hier            mov -1,start
  94.                 mov #5,zahlorg
  95.                 mov #750,zaehler
  96.                 mov #-1000,offset
  97.                 mov 2,3
  98.                 jmp hier2
  99.                 jmp $-5
  100.                                            
  101. thirdwave       
  102.                 spl hier
  103.                 spl jumpy1
  104.                 spl jumpy2
  105.                 mov #4000,49
  106.                 spl ownmaster              ;spl 0
  107.                 spl ganzvorne
  108.                 spl ownmaster
  109.                 spl ownmaster
  110.  
  111.                 
  112.                 dat 0
  113.                 dat 0
  114.                 dat 0
  115.                 dat 0
  116.                 dat 0
  117.                 dat 0
  118.                 dat 0
  119.  
  120. ownmaster       MOV #0,<bdat1     ;und zum DAT 0 werfen verdammt
  121.                 mov #0,<bdat1     ;und zum DAT 0 werfen verdammt
  122.                 JMN ownmaster,35  ;wenn bdat = 0 dann selbstmord
  123.                 jmp vorne
  124. bdat1           DAT 4000           ;zaehler und moerder von gegner
  125.  
  126.                 dat 0
  127.                 dat 0
  128.                 dat 0
  129.                 dat 0
  130.                 dat 0
  131.                 dat 0
  132.                 dat 0
  133.                 dat 0
  134.                 dat 0
  135.  
  136. slave           SPL 1             ;gegnerische Prg. werden hier gefangen
  137.                 MOV #0,<bdat      ;und zum DAT 0 werfen verdammt
  138.                 mov #0,<bdat      ;und zum DAT 0 werfen verdammt
  139. jmp             JMN slave,bdat    ;wenn bdat = 0 dann selbstmord
  140. bdat            DAT -115           ;zaehler und moerder von gegner
  141.  
  142.                 dat 0
  143.                 dat 0
  144.                 dat 0
  145.                 dat 0
  146.                 dat 0
  147.                 dat 0
  148.                 dat 0
  149.                 dat 0
  150.                 dat 0
  151.                 
  152.  
  153. gwohin          dat 1005
  154. gwieoft         dat 1700
  155. ganzvorne       mov #0,0
  156. gorne1          mov #10,@gwohin
  157.                 add #4,gwohin
  158.                 djn gorne1,gwieoft
  159.                 jmp 0
  160.  
  161.  
  162.